VERSION 5.00
Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} Frm_Cal 
   Caption         =   "States to be Calibrated"
   ClientHeight    =   3240
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   5505
   OleObjectBlob   =   "Frm_Cal.frx":0000
   StartUpPosition =   1  'CenterOwner
End
Attribute VB_Name = "Frm_Cal"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Cmd_Cal_Click()
            Unload Frm_Cal
            Cal_Form1.Show
            flag = 0
            'DoEvents
End Sub

Private Sub Cmd_Exit_Click()
            Unload Frm_Cal
End Sub

Private Sub UserForm_Initialize()
        For i = 0 To StateNum - 1
        List_State.AddItem stateName(i)
        List_State.SELected(i) = True
        Next i
End Sub
